#lang rosetta-racket


(require "pierced-sphere.rkt")

(provide pierced-sphere-normal-example
         pierced-sphere-shred-example
         pierced-sphere-top-example
         pierced-sphere-capsule-example)


(define (pierced-sphere-normal-example)
  (view
   (xyz 13.964117844197737 0 5.002640896189019)
   (xyz 0 0 0.011487215757369995)
   (perspective 150)
   (pierced-sphere 1 0.05 0.06 16)))

(define (pierced-sphere-shred-example)
  (view
   (xyz 2.271091963067344 0 2.2760058105487895)
   (xyz 0.0032866841379623328 0 0.008200531619408105)
   (perspective 150)
   (pierced-sphere 1.5 0.05 0.15 20)))

(define (pierced-sphere-top-example)
  (view
   (xyz 1.9016070639937648 -1.9196489727347612 1.8874172842353163)
   (xyz -0.018041908740998203 0 -0.03223168849944891)
   (perspective 35)
   (pierced-sphere 1.5 0.05 0.5 5)))

(define (pierced-sphere-capsule-example)
  (view
   (xyz 1.9291566815838717 -3.9114601430231146 1.438807936256105)
   (xyz 0.07592735801115325 -0.14714895580098006 -0.04263695856308992)
   (perspective 150)
   (pierced-sphere 1.5 0.05 0.5 4)))